home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / languages / cleo.lzh / Cleo / examples / operator.cl < prev    next >
Encoding:
Text File  |  1993-01-24  |  325 b   |  15 lines
  1. program Operateurs;
  2.  
  3. var
  4.     n,b,c,d,e,f : integer;
  5.  
  6. begin
  7.  
  8.     n := 3 or 6;      { = 7 }
  9.     b := 3 and 6;     { = 2 }
  10.     c := 7 % 3;       { = 3 }
  11.     e := 7 mod 3;     { la meme chose que % }
  12.     d := 3 xor 6;     { = 5 }
  13.     f := 7 div 3;     { = 2 }
  14.     writeln('n= ', n, ' b=',b,' c=',c, ' d=',d,' e=',e,' f=',f);
  15. end.